home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGNG_C / CSUBR.LZH / LTOA.C < prev    next >
Text File  |  1985-11-29  |  395b  |  19 lines
  1. ltoa(n,s)        /* convert n to characters in s */
  2. char s[];
  3. long n;
  4. {
  5.     int i,sign;
  6.  
  7.     if ((sign = n) < 0)  /* record sign */
  8.         n = -n;         /* make positive */
  9.     i = 0;
  10.     do {                /* generate digits in reverse order */
  11.         s[i++] = n % 10 + '0';          /* get next digit */
  12.     } while ((n /= 10) > 0);        /* delete it */
  13.     if (sign < 0)
  14.         s[i++] = '-';
  15.     s[i] = '\0';
  16.     reverse(s);
  17.     return s;
  18. }
  19.